inherit CometExpeEmeric_CFC CommonFC

#___________________________________________________________________________________________________________________________________________
method CometExpeEmeric_CFC constructor {} {
 set this(nb_triplets) 0
 set this(nb_permuts)  0
 
 set this(L_tirages)   [list]
 set this(L_interdits) [list]
 set this(tirage_courant) {}
 set this(L_base_pour_tirage) [list]
 set this(retirage_si_pas_trouve_double) 1
}
#___________________________________________________________________________________________________________________________________________
Generate_accessors CometExpeEmeric_CFC [list nb_permuts nb_triplets tirage_courant retirage_si_pas_trouve_double]
Generate_List_accessor CometExpeEmeric_CFC L_tirages L_tirages
Generate_List_accessor CometExpeEmeric_CFC L_interdits L_interdits
Generate_List_accessor CometExpeEmeric_CFC L_base_pour_tirage L_base_pour_tirage

#___________________________________________________________________________________________________________________________________________
method CometExpeEmeric_CFC ReInit  {} {
 set this(L_tirages)   [list]
 set this(L_interdits) [list]
 set this(tirage_courant) {}
}

#___________________________________________________________________________________________________________________________________________
method CometExpeEmeric_CFC Valider_et_passer_au_suivant  {} {
  this Add_L_tirages   [list [this get_tirage_courant]]
 }
#___________________________________________________________________________________________________________________________________________
method CometExpeEmeric_CFC Interdir_et_passer_au_suivant {} {
  this Add_L_interdits [list [this get_tirage_courant]]
 }
 
#___________________________________________________________________________________________________________________________________________
proc P_L_methodes_get_CometExpeEmeric {} {return [list {get_retirage_si_pas_trouve_double { }} {get_nb_permuts { }} {get_nb_triplets { }} {get_L_tirages { }} {get_L_interdits { }} {get_tirage_courant { }} {get_L_base_pour_tirage { }}  ]}
proc P_L_methodes_set_CometExpeEmeric {} {return [list {set_retirage_si_pas_trouve_double {v}} {ReInit {}} {set_nb_permuts {v}} {set_nb_triplets {v}} {set_L_tirages {v}} {Add_L_tirages {v}} {Sub_L_tirages {v}} {set_L_interdits {v}} {Add_L_interdits {v}} {Sub_L_interdits {v}} {set_tirage_courant {v}} {set_L_base_pour_tirage {v}} {Add_L_base_pour_tirage {v}} {Sub_L_base_pour_tirage {v}} {Valider_et_passer_au_suivant {}} {Interdir_et_passer_au_suivant {}} ]}

